Developer CD Series 1995…tember: Reference Library/Dev.CD Sep 95 RL/Dev.CD Sep 95 RL.toast/mac/Technical Documentation/develop/develop Issue 21 code/MPW Tips - Faster Launch/Startup

Text File | 1995-01-16 | 741 b | 31 lines | [TEXT/MPS ]

# Restore the state if possible; else cold boot.
# ∑∑ means redirect to end of file.
If "`Exists "{ShellDirectory}MPW.SuspendState"`"
    Execute "{ShellDirectory}MPW.SuspendState" ∂
        ∑∑ "{Worksheet}"
    Set ColdBoot 0
Else
    Beep 2g,3 2f,3 2a,3    # Hum a merry tune
    Begin
        Echo "MPW.SuspendState was not found."
        Echo "Here's your Cold Boot…"
    End ∑∑ "{Worksheet}"
    Execute "{ShellDirectory}ColdStartup"
    Set ColdBoot 1
End

Export ColdBoot

# Do anything that needs doing each launch
# (UserStartup•X files in EachBoot folder).
If "`Exists -d "{ShellDirectory}EachBoot"`"
    For fileName in ∂
        `(Files ∂
        "{ShellDirectory}"EachBoot:UserStartup•≈ ∂
            || Set Status 0) ≥ Dev:Null`
        Execute "{fileName}"
    End
    Unset fileName
End
Unset ColdBoot